home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #2 / Amiga Plus Extra 1997 #2.iso / pd / misc / alphaspell / rexx / convert.asp next >
Encoding:
Text File  |  1997-02-16  |  347 b   |  17 lines
  1. /* convert.asp - Converts AlphaSpell V dictionaries to AlphaSpell IV */
  2.  
  3. ARG name temp
  4.  
  5. OPTIONS RESULTS
  6. "DUMP" name temp
  7. IF RC == 0 THEN DO
  8.     ADDRESS COMMAND "fsort temp.tmd temp!.tmd"
  9.     ADDRESS COMMAND "uniq <temp!.tmd >temp.tmd"
  10.     CALL Delete ("temp!.tmd")
  11.     "DUMP temp.tmd" name
  12.     IF RC == 0 THEN CALL Delete("temp.tmd")
  13. END
  14. "QUIT"
  15.  
  16.  
  17.